home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Online / Apache / bin / stophttpd-old < prev    next >
Encoding:
Text File  |  2001-06-06  |  438 b   |  19 lines
  1. /* stophttpd 1.0 */
  2. opened = OPEN(pidfile, 'T:httpd.pid', 'R')
  3. IF opened == 1 THEN DO 
  4.   DO WHILE ~EOF(pidfile)
  5.     line = READLN(pidfile)
  6.     line = SUBSTR(line, 6)
  7.     pid  = STRIP(line, 'T', ']')
  8.     say 'Shutting down httpd server ...' 
  9.     ADDRESS COMMAND 'Break' '>NIL:' pid 'C' 
  10.     LEAVE 
  11.     END 
  12.   CALL CLOSE(pidfile)
  13.   ADDRESS COMMAND 'C:Delete' '>NIL:' 'T:httpd.pid'
  14.   END 
  15. ELSE DO 
  16.   SAY 'No process ID for httpd found.'
  17.   END
  18.  
  19.